14350 Y1$="TEXT ON PRINTER":REM******88 14351 OPEN99.230:Y1=6:IFY=1THENY$=CHR$(15)+Y$+CHR$(13)+CHR$(14) 14352 IFY=2THENY$=CHR$(27)+CHR$(14)+Y$+CHR$(13)+CHR$(27)+CHR$(15):Y1=3 14353 IFY=3THENY$=" " 14354 PRINT#99.SPC(Y1):Y$:CLOSE99:RETURN . 14400 Y1$="OUTPUT ON PRINTER“:REM****89 14401 OPEN99.230:PRINT#99.SPC(6):Y$:SPC(50—LEN(Y$)):Y:CLOSE99:RETURN 14450 Y1$="LIMIT-COMP.PRINTER":REM***90 14451 IFY<Y1ORY>Y2THEN14453 14452 EUTD14400 14453 OPEN99.230:PRINT#99.SPC(6):Y$:SPC(54-LEN(Y$)):"* ":Y:CLOSE99:RETURN 14500 Y1$="LIMIT—COMP.SCREEN":REM****91 14501 IFY<Y1ORY>Y2THEN14503 14502 PRINTY$:TAB(33)Y:RETURN 14503 PRINTY$:TAB(28)“***“:TAB(33)Y:RETURN 14550 Y1$="DISPL.FREQ.RESP.":REM*****92 14551 Y8=.5:Y5=99:Y6=-99:FORY1=1TOY9:IFY5>Y(Y1)THENY5=Y(Y1) 14552 IFY(Y1)>Y6THENY6=Y(Y1) 14553 NEXT:Y6=Y6-Y5:IFY6>2THENY8=1:IFY6>4THENY0=2:IFY6>8THENY8=5 14554 IFY6>20THENY8=10 14555 Y7=Y8*INT(Y5/Y8) 14556 PRINT" DB" 14557 FORY1=1TO5:PRINT" I^^I^^I^^I":NEXT 14558 PRINT" I---------------------------------^" 14559 PRINT"KHZ 0.1 0.3 1 3 10 14560 PRINT"^^":Y7+5*Y8:PRINT“^^^“:Y7+4*Y8:PRINT"^^^":Y7+3*Y8 14561 PRINT"^^^":Y7+2*Y8:PRINT"^^^":Y7+Y8:PRINT"^^^“:Y7 14562 FORY1=1TO9:PRINT“^"::FORY2=1TO21-INT((Y(Y1)-Y7)*4/Y8+.5):PRINT"^"I 14563 NEXTY2:PRINTTAB(22+INT(.5+16*LDG(X(20+Y1))/LOG(10)))"*"NEXTY1:RETURN 14600 Y1$="HARD-COPY":REM************93 14601 OPEN99.230:PRINT#99.CHR$(30}:CLOSE99:SYS37906 14603 OPEN99.230:RRINT#99.CHR$(27):CHR$(10):CLOSE99 14605 OPEN99.230:PRINT#99.CHR$(31)::PRINT#99:CLOSE99:RETURN 14650 Y1$=“—-------------"REM*******94 14651 RETURN 14700 Y1$=“--------------"REM*******95 14701 RETURN 14750 Y1$="--------------"REM*******96 14751 RETURN 14800 Y1$="--------------"REM*******97 14801 RETURN 14850 Y1$="--------------"REM*******98 14851 RETURN 14900 Y1$="--------------"REM*******99 14901 RETURN 14950 REM*****ERROR—MESSAGE*********100 14951 PRINT:POKE158;0 14952 PRINT"^ERROR AT:":Y1$Y:" FROM R=":R:HOLD300 14953 PRINT'*^^ERROR AT:":Y1$:" FROM R=":R:HOLD300 14954 GETY$:IFY$=""THEN14952 14955 PRINT"^":SPC(40):"^^":Y2$="ERROR“ 14960 PRINT:SYS(903):RETURN 16000 IECINSMFP.Y5$:RETURN 16010 IECOUTSMFP.Y5$:RETURN READY.